home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 33 / Digital_Talk_33_1998-11-22_Digital_Talk_de_Side_B.d64 / nun hab ich ... (.txt) next >
Commodore BASIC  |  2023-02-26  |  6KB  |  168 lines
  1. 5 rem  nun hab ich dich ...
  2. 10 rem vorstellungsbild
  3. 11 print"[147]":print:print:print:print:print
  4. 12 print"           mein lied an dich":print:print
  5. 13 print"            liebste christl":print:print:print
  6. 14 print"                  karl heinz":print:print:print:print:print:print
  7. 15 fort=0to5000:next
  8. 16 print"                       start?  (j/n)"
  9. 17 getb0$:ifb0$=""then17
  10. 18 ifb0$="j"then22
  11. 19 ifb0$<>"j"then20
  12. 20 ifb0$="n"then998
  13. 21 ifb0$<>"n"then17
  14. 22 s=54272:forl=stos+24:pokel,0:next:zr=0
  15. 24 pokes+24,15:pokes+3,8:pokes+2,120:pokes+5,43:pokes+6,34:fr=65:goto200
  16. 25 pokes+24,15:pokes+3,0:pokes+2,120:pokes+5,43:pokes+6,34:fr=65:goto520
  17. 26 pokes+24,15:pokes+3,0:pokes+2,120:pokes+5,43:pokes+6,34:fr=65:goto530
  18. 200 rem liedablauf
  19. 205 restore
  20. 210 print"[147]":print:print:print:print:print
  21. 215 print"            nun hab ich dich,":print
  22. 220 print"            meinen liebling,":print
  23. 222 print"                gefunden"
  24. 225 readx:ready:readd:ifx=-1then260
  25. 230 pokes+1,x:pokes,y:pokes+4,fr
  26. 235 fort=1tod:next:pokes+4,0:goto225
  27. 240 data0,0,240,43,219,240,43,219,240,39,18,240,34,207,480,26,20,240
  28. 242 data34,207,240,43,219,480,34,207,240,43,219,240,46,118,960,43,219,720
  29. 244 data-1,-1,0
  30. 260 print"[147]":print:print:print:print:print
  31. 265 print"           und weiss, dass du":print
  32. 270 print"           die einzige bist !"
  33. 275 readx:ready:readd:ifx=-1then310
  34. 280 pokes+1,x:pokes,y:pokes+4,fr
  35. 285 fort=1tod:next:pokes+4,0:goto275
  36. 290 data43,219,240,39,18,360,36,225,120,39,18,240,32,219,240,26,20,480
  37. 292 data32,219,240,46,118,240,43,219,960,0,0,240,-1,-1,0
  38. 310 print"[147]":print:print:print:print:print
  39. 315 print"       ich spuerte, dass die erste":print
  40. 320 print"         aller schoenen stunden"
  41. 325 readx:ready:readd:ifx=-1then360
  42. 330 pokes+1,x:pokes,y:pokes+4,fr
  43. 335 fort=1tod:next:pokes+4,0:goto325
  44. 340 data43,219,230,43,219,230,39,18,190
  45. 342 data34,207,230,34,207,230,26,20,230,34,207,230,43,219,230,43,219,230
  46. 344 data34,207,230,43,219,230,46,118,960,43,219,480,-1,-1,0
  47. 360 print"[147]":print:print:print:print:print
  48. 365 print"            du mir brachtest,":print
  49. 370 print"      als dein mund mich gekuesst !"
  50. 375 readx:ready:readd:ifx=-1then400
  51. 380 pokes+1,x:pokes,y:pokes+4,fr
  52. 385 fort=1tod:next:pokes+4,0:goto375
  53. 390 data52,39,230,43,219,230,39,18,360,36,225,120,39,18,230,32,219,230
  54. 392 data26,20,480,32,219,240,39,18,240,34,207,960,0,0,720,-1,-1,0
  55. 400 rem  strophen - steuerung
  56. 405 zr=zr+1
  57. 410 if zr=1 then 25
  58. 415 if zr=2 then 620
  59. 420 if zr=3 then 720
  60. 425 if zr=4 then 820
  61. 430 if zr=5 then 24
  62. 435 if zr=6 then 26
  63. 440 if zr=7 then 630
  64. 445 if zr=8 then 730
  65. 450 if zr=9 then 830
  66. 455 if zr=10 then 24
  67. 460 if zr=11 then 900
  68. 520 rem erste strophe
  69. 522 print"[147]":print:print:print:print:print
  70. 524 print"     noch gar nicht lang ist's her,":print
  71. 525 print"       ich sehnte mich noch sehr,":print
  72. 526 print"          nach einem maedchen,":print
  73. 527 print"        das mich wirklich liebt":print
  74. 529 goto 540
  75. 530 rem zweite strophe
  76. 532 print"[147]":print:print:print:print:print
  77. 534 print"       jetzt bist du endlich da,":print
  78. 535 print"       ich spuere dich ganz nah,":print
  79. 536 print"       bei mir an meinem herzen":print
  80. 537 print"             ruhst du aus":print
  81. 540 readx:ready:readd:ifx=-1then400
  82. 545 pokes+1,x:pokes,y:pokes+4,fr
  83. 550 fort=1tod:next:pokes+4,0:goto540
  84. 560 data26,20,240,43,219,230,43,219,230,43,219,230,39,18,230,34,207,480
  85. 565 data0,0,240,26,20,230,43,219,230,43,219,230,43,219,230,39,18,230
  86. 570 data34,207,480,0,0,240,26,20,240,43,219,230,43,219,230,43,219,230
  87. 575 data46,118,230,52,39,230,52,39,230,46,118,230,43,219,230,39,18,960
  88. 580 data0,0,720,-1,-1,0
  89. 620 rem erste strophe
  90. 622 print"[147]":print:print:print:print:print
  91. 624 print"         ich hoffte so darauf,":print
  92. 625 print"       die einsamkeit hoert auf,":print
  93. 626 print"           wenn es die liebe":print
  94. 627 print"        endlich fuer mich gibt":print
  95. 629 goto 640
  96. 630 rem zweite strophe
  97. 632 print"[147]":print:print:print:print:print
  98. 634 print"       du wirst bald meine frau":print
  99. 635 print"       und ich weiss ganz genau,":print
  100. 636 print"       das leben sieht fuer uns":print
  101. 637 print"            nie traurig aus":print
  102. 640 readx:ready:readd:ifx=-1then400
  103. 645 pokes+1,x:pokes,y:pokes+4,fr
  104. 650 fort=1tod:next:pokes+4,0:goto640
  105. 660 data26,20,240,46,118,230,46,118,230,46,118,230,43,219,230,39,18,480
  106. 665 data0,0,240,26,20,240,46,118,230,46,118,230,46,118,230,43,219,230
  107. 670 data39,18,480,0,0,240,26,20,240,46,118,230,46,118,230,46,118,230
  108. 675 data52,39,230,58,138,230,58,138,230,52,39,230,46,118,230,43,219,960
  109. 680 data0,0,720,-1,-1,0
  110. 720 rem erste strophe
  111. 722 print"[147]":print:print:print:print:print
  112. 724 print"       mein herz, das war bereit":print
  113. 725 print"        schon lange, lange zeit,":print
  114. 726 print"           nur alle maedchen":print
  115. 727 print"          rund um mich herum":print
  116. 729 goto 740
  117. 730 rem zweite strophe
  118. 732 print"[147]":print:print:print:print:print
  119. 734 print"       kann kommen, was da will,":print
  120. 735 print"      bleib ruhig und bleib still,":print
  121. 736 print"          nur einzig wichtig":print
  122. 737 print"          fuer uns beide ist":print
  123. 740 readx:ready:readd:ifx=-1then400
  124. 745 pokes+1,x:pokes,y:pokes+4,fr
  125. 750 fort=1tod:next:pokes+4,0:goto740
  126. 760 data26,20,240,43,219,230,43,219,230,43,219,230,39,18,230,34,207,480
  127. 765 data0,0,240,26,20,230,43,219,230,43,219,230,43,219,230,39,18,230
  128. 770 data34,207,480,0,0,240,26,20,240,43,219,230,43,219,230,43,219,230
  129. 775 data46,118,230,52,39,230,52,39,230,46,118,240,43,219,230,58,138,960
  130. 780 data0,0,720,-1,-1,0
  131. 820 rem erste strophe
  132. 822 print"[147]":print:print:print:print:print
  133. 824 print"         sie spielten blinde kuh":print
  134. 825 print"           und lachten immerzu":print
  135. 826 print"        und warn in ihrem innern":print
  136. 827 print"             doch nur stumm":print
  137. 829 goto 840
  138. 830 rem zweite strophe
  139. 832 print"[147]":print:print:print:print:print
  140. 834 print"       dass keines von uns zwein":print
  141. 835 print"        das andre laesst allein":print
  142. 836 print"            und seine liebe":print
  143. 837 print"          zu ihm je vergisst !":print
  144. 840 readx:ready:readd:ifx=-1then400
  145. 845 pokes+1,x:pokes,y:pokes+4,fr
  146. 850 fort=1tod:next:pokes+4,0:goto840
  147. 860 data58,138,240,69,157,230,69,157,230,69,157,230,65,181,230
  148. 865 data58,138,480,0,0,240,69,157,240,52,39,340,58,138,120,52,39,230
  149. 870 data46,118,230,43,219,480,0,0,240,26,20,240,39,18,230,39,18,230
  150. 875 data39,18,230,43,219,230,46,118,230,46,118,230,43,219,230,39,18,230
  151. 880 data34,207,960,-1,-1,0
  152. 900 rem  wiederholungs - abfrage
  153. 902 pokes+24,0
  154. 910 print"[147]":print:print:print:print:print
  155. 915 print"           mein lied an dich":print:print
  156. 916 print"            liebste christl":print:print:print
  157. 917 print"            dein":print:print
  158. 918 print"                       karl heinz":print:print:print:print:print
  159. 919 fort=1to5000:next
  160. 920 print"                      nochmal? (j/n)"
  161. 930 getb1$:ifb1$=""then930
  162. 940 ifb1$="j"then22
  163. 945 ifb1$<>"j"then950
  164. 950 ifb1$="n"then998
  165. 960 ifb1$<>"n"then930
  166. 998 print"[147]"
  167. 999 end
  168.